SGI Freeware 1998 June/SGI Freeware 1998 June.iso/dist/fw_UMINNgopher.idb/usr/freeware/src/gopher_1.12/make.com.z/make.com

Text File | 1997-09-09 | 406b | 26 lines

$ IF P1 .EQS. ""
$ THEN
$    type/nopage sys$input:
     Usage:
        @make UCX
        @make WOLLONGONG
        @make MULTINET
$    exit
$ ENDIF
$!
$ ON CONTROL_Y THEN GOTO CLEANUP
$ ON ERROR THEN GOTO CLEANUP
$ verify = f$verify(1)
$ set default [.object]
$ @compile 'P1'
$ @link 'P1'
$!
$ set default [-.gopher]
$ @compile 'P1'
$ @link 'P1'
$ set default [-]
$!
$ CLEANUP:
$    verify = f$verify(verify)
$exit